home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / IACCESS.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.1 KB  |  49 lines
  1. # Internet Access (Australia) PPP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-11-95 Earl White
  4.  
  5. STRING username
  6. STRING password
  7.  
  8. TRACE OFF
  9.  
  10. SetTimeout      90                      # reset maximum script timeout
  11.  
  12. # Get username from access method
  13. CfgGetValue "Username" username
  14.  
  15. IF result = 0 THEN
  16.     GetInput "Enter your username:" username
  17.     IF result = 0 THEN
  18.         PRINT "Warning, no username entered."
  19.     ELSE
  20.         PRINT "Username set to:"; username
  21.     ENDIF
  22. ENDIF
  23.  
  24. CfgGetValue "Password" password
  25.  
  26. IF result = 0 THEN
  27.     GetPassword "Enter your password:" password
  28.     IF result = 0 THEN
  29.         PRINT "Warning, no password entered."
  30.     ELSE
  31.         PRINT "Password set."
  32.     ENDIF
  33. ENDIF
  34.  
  35. CommWaitFor  "Username:"        # wait for username
  36.     CommSend username           # send user name
  37.     CommSend "%r"               # send carriage return
  38.  
  39. CommWaitFor  "Password:"        # wait for password prompt
  40.     CommSend password           # send password
  41.     CommSend "%r"               # send carriage return
  42.  
  43. CommWaitFor  ">"
  44.     CommSend "ppp"
  45.     CommSend "%r"
  46.  
  47. END                             #success if we got this far
  48.  
  49.